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Problem 

There have been inquiries about the option o£ posting invoices without 
having to return to the Main Menu. The only purpose behind this would be 
to save time and not have to load those large programs back in. If these 
changes are done, then a COMPLETE posting must be done since the selection 
of invoices is done from the Main Menu and is bypassed. 


Solution 

GOING DIRECTLY TO INVOICE POSTING FROM INVOICE MAINTENANCE: 

To add the option of running the POST INVOICES function from the INVOICE 
MAINTENANCE function without returning to the MAIN MENU first, the 
following changes can be made. Note that you must request a Complete 
posting since the selection process is done from the main menu and will be 
bypassed. 


The problem is corrected by following the steps listed below. 

1. Backup the diskette(s) and make the changes on the Backup copy of the 
program. 

2. In BASIC load the program by typing LOAD''APINVCE/BAS". 

3. Make the following corrections: 

CHANGES (Retype the line or refer to the Edit section of the owners manual) 
Old Line: 502 PRINT@(23,20),EL$"> ENTER A SELECTION :FL-1:GOSUB10: 
IFCF-1THEN850ELSEIFCFO0THEN50 2 

New Line: 502 PRINT@(23,20),EL$"> ENTER A SELECTION ::FL-1:GOSUB10: 
IFCF-1ORCF-2THEN850ELSEIFCFO0THEN502 
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Old Line: 850 PRINr@( 23,20 ),EI,$;R$"RETURNING TO MAIN hENU"N$;:CLOSE: 

OPEN"O",l,VP$:PRINr#l,I;IT;IN;ID;IS;IH;VT;VN;VD;EP;TD;R0;Rl;R2;R3;R4;R5; 

R6;R7;R8;PC;LC;SrR$(CP#)+"E0" 

New Line: 850 CL0SE:OPEN"O",l,VP$:PRINr#l,I;IT;IN;ID;IS;IH;VT;VN;VD;EP; 

TD ;R0 ;R1;R2;R3 ;R4;R5 ;R6;R7;R8 ;FC;LC; STR$ (CP# )+"E!0" 

Old Line: 860 PORW9=lTOVN-l:ERINr#l,P(W9,0);P(W9,l):NE3Cr:PC»W9=lTOIN-l: 

PRINT# 1,1 (W9 ): NEXT: CLOSEl : RUN" APS/BAS 
New Line: 860 PORW9=lTOVN-l:IRINr#l,P(W9,0);P(V©,l):NE5{T:PORW9=lTOIN-l: 
ERINr#l,I(W9) :NEXr:CLOSEl: 

Old Line: 1024 PRINr:PRINITAB(10);FNRV$("D");"ELETE";TAB(25);FNRV$("E"); 
"DPT" ;TAB( 40) ;FFNRV$ ("N"); "EXT" 

New Line: 1024 PRINr:I«INrTAB{10);FNRV$("D");"EI£TE";TAB(25);FNRV$("E"); 

"DPT;TAB( 40) ;FNRV$ ("N"); "EXT" ; TAB(55) ;FNRV$("F2")" POST INVOICES " 

ADOPTIONS (Type the line followed by an <ENrER>) 

870 IFCF=2TEffiNRUN"APPOST/BAS"ELSERUN"APS/BAS" 

4. Type SAYE"APINVCE/BAS" and press <ENTER>. 

5. At TRSEXDS Ready, nake a backup cx^y of the diskette. 










